home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / h / hdinstallersiii.dms / hdinstallersiii.adf / MKII_PALFIX / MK II Install next >
Text File  |  1994-11-28  |  2KB  |  69 lines
  1. ; $VER: MK II HD Install-Script V1.0 (28.11.94) by Roland for Sentinel
  2.  
  3. (set GameDir "MK_II")
  4. (set TotalDisks 4)
  5. (set CurrentDisk 0)
  6. (set Percent 20)
  7. (set DiskPercent (/ (- 100 Percent) TotalDisks))
  8.  
  9. ;try to figure out a place where the user usually installs his games
  10. (if (exists "Games:" (noreq) )
  11.     (set @default-dest "Games:")
  12.     (if (exists "SYS:Games" (noreq) )
  13.         (set @default-dest "SYS:Games")
  14.         (if (exists "Work:Games" (noreq) )
  15.             (set @default-dest "Work:Games")
  16.             (set @default-dest "SYS:")
  17.         )
  18.     )
  19. )
  20.  
  21. ;ask the user to select a directory to install the game into
  22. (set default-dest
  23.      (tackon (askdir (prompt "Where would you like " @app-name " installed?\n"
  24.                              "A drawer called " GameDir " will be created.")
  25.                      (help @askdir-help)
  26.                      (default @default-dest)
  27.                      (newpath)
  28.              )
  29.      GameDir
  30.      )
  31. )
  32. (set @default-dest default-dest)
  33. (complete 5)
  34.  
  35. ;create the selected directory
  36. (makedir @default-dest
  37.          (infos)
  38. )
  39. (complete 10)
  40.  
  41. ;copy all extra files to this directory
  42. (copyfiles (source "Mortal Kombat II")
  43.            (dest @default-dest)
  44. )
  45. (copyfiles (source "Mortal Kombat II.icon")
  46.            (dest @default-dest)
  47.            (newname "Mortal Kombat II.info")
  48. )
  49. (complete Percent)
  50.  
  51. ;copy all the disks to the data directory
  52. (until (= CurrentDisk TotalDisks)
  53.        (set CurrentDisk (+ CurrentDisk 1))
  54.        (message "\n\n\n\n\n\nPlease insert " @app-name " Disk "
  55.                 CurrentDisk " into DF0:"
  56.        )
  57.        (working "\n\n\n\nConverting disk " CurrentDisk
  58.                 "\n\n\n\nCall one of our boards:\n\n"
  59.                 "Neon City:    +31 (0)478012733\n"
  60.                 "              +31 (0)478014014\n"
  61.                 "Dream Scape:  +31 (0)52552372 \n"
  62.                 "State Dreams: +31 (0)206946550\n"
  63.        )
  64.        (run (cat "Read" CurrentDisk " " @default-dest))
  65.        (set Percent (+ Percent DiskPercent))
  66.        (complete Percent)
  67. )
  68. (complete 100)
  69.